Namespace DataTypes
    Public Class Album
        Private _id As String
        Private _count As Integer
        Private _caption As String
        Private _ispublic As Boolean
        Private _updatedby As String

        Public Sub New(ByVal id As String, ByVal count As Integer, ByVal caption As String, ByVal ispublic As Boolean, ByVal LastUpdatedBy As String)
            MyBase.New()
            _id = id
            _count = count
            _caption = caption
            _ispublic = ispublic
            _updatedby = LastUpdatedBy
        End Sub

        Public Sub New(ByVal id As String, ByVal count As Integer, ByVal caption As String, ByVal ispublic As Boolean)
            MyBase.New()
            _id = id
            _count = count
            _caption = caption
            _ispublic = ispublic
            _updatedby = UpdatedBy
        End Sub

        Public ReadOnly Property AlbumID() As String
            Get
                Return _id
            End Get
        End Property

        Public ReadOnly Property Count() As Integer
            Get
                Return _count
            End Get
        End Property

        Public ReadOnly Property Caption() As String
            Get
                Return _caption
            End Get
        End Property

        Public ReadOnly Property IsPublic() As Boolean
            Get
                Return _ispublic
            End Get
        End Property

        Public ReadOnly Property UpdatedBy() As String
            Get
                Return _updatedby
            End Get
        End Property

    End Class
End Namespace